home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / JUN / PTRPDEMO / HACT.HLP / hact.p4w next >
Text File  |  1995-04-05  |  33KB  |  983 lines
  1.  
  2. { this is the global variables section, we have here the # of ordered items }
  3.  
  4. var
  5. {        logo : string = 'fly16b.bmp';}
  6.         logo : string = '3dlogo2.bmp';
  7.         oHlpdkPa : integer = 0;
  8.         cHLPDKPA : integer;
  9.         pHLPDKPA : integer = 299; { $299 for a while }
  10.         tpHLPDKPA : integer;
  11.         oHLPDK   : integer = 0;
  12.         cHLPDK   : integer;
  13.         pHLPDK   : integer = 50; { $50 for a while }
  14.         tpHLPDK  : integer;
  15.         oPasterp : integer = 0;
  16.         cPasterp : integer;
  17.         pPasterp : integer = 200; { $ 200 for a while }
  18.         tpPASTERP : integer;
  19.         oInteractive : integer = 0;
  20.         cInteractive : integer;
  21.         pInteractive : integer = 149; { $ 149 for a while }
  22.         tpInteractive : integer;
  23.         oParserTP : integer = 0;
  24.         cParserTP : integer;
  25.         pParserTP : integer = 40; { $40 for a while }
  26.         tpParserTP : integer;
  27.         oXspawn : integer = 0;
  28.         cXspawn : integer;
  29.         pXspawn : integer = 99; { $99 for xspawn }
  30.         tpXSpawn : integer;
  31.         ordered : integer;
  32.         orderPrice : integer;
  33.         itemName : integer; { static control handle }
  34.         unitPrice : integer; { static control handle }
  35.         totalPrice : integer; { static control handle }
  36.         itemNum : integer; { edit control handle }
  37.         ordS : string;
  38.         item : string;
  39.  
  40.         ordHLPDKPA : integer; { order screen }
  41.         ordHLPDK : integer;
  42.         ordPASTERP : integer;
  43.         ordIH : integer;
  44.         ordXSpawn : integer;
  45.         ordParserTP : integer;
  46.  
  47.         prcHLPDKPA : integer; { order screen }
  48.         prcHLPDK : integer;
  49.         prcPASTERP : integer;
  50.         prcIH : integer;
  51.         prcXSpawn : integer;
  52.         prcParserTP : integer;
  53.  
  54.         total : integer;
  55.         totalOrd : longint;
  56.  
  57.         dtlTot : integer; { details form }
  58.         dtlName : integer;
  59.         name : string = "";
  60.         bName : string = ''; { billing name }
  61.         dtlTitle : integer;
  62.         title : string = '';
  63.         bTitle : string = ''; { billing title }
  64.         dtlCompany : integer;
  65.         company : string = '';
  66.         bCompany : string = '';
  67.         address1 : string = '';
  68.         bAddress1 : string = '';
  69.         address2 : string = '';
  70.         bAddress2 : string = '';
  71.         city : string = '';
  72.         bcity : string = '';
  73.         state : string = '';
  74.         bState : string = '';
  75.         zip : string = '';
  76.         bZip : string = '';
  77.  
  78.         phone : string = '';
  79.         fax : string = '';
  80.         email1 : string = '';
  81.         email2 : string = '';
  82.  
  83.         mailOption : string = "USA, First Class";
  84.         mailNum : integer;
  85.  
  86.         payment : string = "US $ Check";
  87.         paymentNum : integer;
  88.  
  89.         cardName : integer; { handle to static }
  90.         cardStr : string;
  91.         CardNum : string  = '';
  92.         overNight : boolean = false;
  93.         exprDate : string = '';
  94.         cardHolder : string = '';
  95.  
  96.         comment : string = '';
  97.  
  98.         shipping : longint = 0;
  99.         tax : real = 0.0;
  100.         taxStr : string = '0.0';
  101.         totalToPay : real = 0;
  102.         totalPayStr : string = '0.0';
  103.  
  104.         paymentDetails1 : string = '';
  105.         paymentDetails2 : string = '';
  106.         paymentDetails3 : string = '';
  107.         
  108.  
  109. endVar
  110.  
  111. procedure autoStart
  112.         macCreateButton('mark', '&Mark', "executeProc(`MarkPressed', qError)");
  113.         macCreateButton('order', '&Order', "executeProc(`orderProc', qError)");
  114.  
  115.         createForm("ItemOrder", "Order Item", 100, 100, 200, 150, "SetItem");
  116.         itemName := addStatic("ItemOrder", "", 10, 10, 170, 14);
  117.         addStatic("ItemOrder", "Copies To Order : ", 10, 50, 80, 14);
  118.         itemNum := addEditBox("ItemOrder", "ordS", "ordS", 100, 50, 80, 14, "updateTotal")
  119.         addStatic("ItemOrder", "Unit Price : ", 10, 70, 80, 14);
  120.         unitPrice := addStatic("ItemOrder", "", 100, 70, 80, 14);
  121.         addStatic("ItemOrder", "Total Price", 10, 90, 80, 14);
  122.         totalPrice := addStatic("ItemOrder", "", 100, 90, 80, 14);
  123.  
  124.         createForm("Order", "Order Products", 100, 100, 230, 210, "StartOrder");
  125.         addStatic("Order", "Order HyperAct Products", 10, 10, 170, 14);
  126.         addStatic("Order", "&HLPDK/PA", 10, 60, 70, 14);
  127.         ordHLPDKPA := addEditBox("Order", "", "cHLPDKPA", 90, 60, 30, 14, "afterHLPDKPA");
  128.         addStatic("Order", "x $299", 130, 60, 50, 14);
  129.         prcHLPDKPA := addStatic("Order", "", 190, 60, 50, 14);
  130.  
  131.         addStatic("Order", "HLPDK", 10, 80, 70, 14);
  132.         ordHLPDK := addEditBox("Order", "", "cHLPDK", 90, 80, 30, 14, 'afterHLPDK');
  133.         addStatic("Order", "x $50", 130, 80, 50, 14);
  134.         prcHLPDK := addStatic("Order", "", 190, 80, 50, 14);
  135.  
  136.         addStatic("Order", "&PASTERP", 10, 100, 70, 14);
  137.         ordPASTERP := addEditBox("Order", "", "cPasterp", 90, 100, 30, 14, 'afterPASTERP');
  138.         addStatic("Order", "x $200", 130, 100, 50, 14);
  139.         prcPASTERP := addStatic("Order", "", 190, 100, 50, 14);
  140.  
  141.         addStatic("Order", "&Interactive Help", 10, 120, 70, 14);
  142.         ordIH := addEditBox("Order", "", "cInteractive", 90, 120, 30, 14, 'afterIH');
  143.         addStatic("Order", "x $149", 130, 120, 50, 14);
  144.         prcIH := addStatic("Order", "", 190, 120, 50, 14);
  145.  
  146.         addStatic("Order", "Parser/TP", 10, 140, 70, 14);
  147.         ordParserTP := addEditBox("Order", "", "cParserTP", 90, 140, 30, 14, 'afterParserTP');
  148.         addStatic("Order", "x $40", 130, 140, 50, 14);
  149.         prcParserTP := addStatic("Order", "", 190, 140, 50, 14);
  150.  
  151.         addStatic("Order", "&XSpawn", 10, 160, 70, 14);
  152.         ordXspawn := addEditBox("Order", "", "cXspawn", 90, 160, 30, 14, 'afterXSpawn');
  153.         addStatic("Order", "x $99", 130, 160, 50, 14);
  154.         prcXSpawn := addStatic("Order", "", 190, 160, 50, 14);
  155.  
  156.         addStatic("Order", "Total", 130, 180, 50, 14);
  157.         total := addStatic("Order", "", 190, 180, 50, 14);
  158.  
  159.         createForm("Details", "Shipping information", 100, 100, 230, 210, "StartDetails");
  160.         addStatic("Details", "Ship products to :", 10, 10, 170, 14);
  161.         dtlTot := addStatic("Details", "", 10, 30, 170, 14);
  162.         addStatic("Details", "&Name", 10, 60, 70, 14);
  163.         dtlName := addEditBox("Details", "name", "name", 80, 60, 120, 14);
  164.         addStatic("Details", "&Title", 10, 80, 70, 14);
  165.         dtlTitle := addEditBox("Details", "title", "title", 80, 80, 120, 14);
  166.         addStatic("Details", "&Company", 10, 100, 70, 14);
  167.         dtlCompany := addEditBox("Details", "company", "company", 80, 100, 120, 14);
  168.         addStatic("Details", "Address &1", 10, 120, 70, 14);
  169.         addEditBox("Details", "address1", "address1", 80, 120, 120, 14);
  170.         addStatic("Details", "Address &2", 10, 140, 70, 14);
  171.         addEditBox("Details", "address2", "address2", 80, 140, 120, 14);
  172.         addStatic("Details", "Ci&ty", 10, 160, 70, 14);
  173.         addEditBox("Details", "city", "city", 80, 160, 120, 14);
  174.         addStatic("Details", "&State", 10, 180, 70, 14);
  175.         addEditBox("Details", "state", "state", 80, 180, 20, 14);
  176.         addStatic("Details", "&Zip", 110, 180, 30, 14);
  177.         addEditBox("Details", "zip", "zip", 150, 180, 50, 14);
  178.  
  179.         createForm("Billing", "Billing information", 100, 100, 230, 210, "StartDetails");
  180.         addStatic("Billing", "Press OK if same as shipping", 10, 10, 230, 14);
  181.         dtlTot := addStatic("Billing", "", 10, 30, 170, 14);
  182.         addStatic("Billing", "&Name", 10, 60, 70, 14);
  183.         dtlName := addEditBox("Billing", "bname", "bname", 80, 60, 120, 14);
  184.         addStatic("Billing", "&Title", 10, 80, 70, 14);
  185.         dtlTitle := addEditBox("Billing", "btitle", "btitle", 80, 80, 120, 14);
  186.         addStatic("Billing", "&Company", 10, 100, 70, 14);
  187.         dtlCompany := addEditBox("Billing", "bcompany", "bcompany", 80, 100, 120, 14);
  188.         addStatic("Billing", "Address &1", 10, 120, 70, 14);
  189.         addEditBox("Billing", "baddress1", "baddress1", 80, 120, 120, 14);
  190.         addStatic("Billing", "Address &2", 10, 140, 70, 14);
  191.         addEditBox("Billing", "baddress2", "b